home *** CD-ROM | disk | FTP | other *** search
/ Tempra Access / Tempra Access.iso / access / svgacore.acc (.txt) < prev    next >
Encoding:
AmigaBASIC Source Code  |  1992-11-05  |  16.0 KB  |  60 lines
  1.                                      evarffffc825,varffffc825<0x54>
  2. <0x48>%LOGvarffffc825uvarffffc825Cvarffffc825<0x2aa616aa>
  3. <0x48>%<0x2aa616ae>varffffc825REM
  4. <0x48>%INKEY$
  5. <0x48>%}
  6. <0x48>%1
  7. <0x48>%WHILE<0x48>%DATAvarffffc825c
  8. <0x48>%D
  9. <0x48>%5varffffc825WHILE<0x48>%<0x45>varffffe425PRINTvarffffe425<0x59>varffffe425<0x2aa616e6>
  10. USING%"Σ%╣Σ%áΣ%qΣ%Φ
  11. USING%1varffffe425TAN
  12. USING%LEN
  13. USING%i
  14. <0x2aa6170c>&<0x2aa6170e>
  15. <0x2aa61710>&1
  16. <0x2aa61714>&<0x4b>
  17. <0x2aa61718>&LOC
  18. <0x2aa6171c>&<0x2aa61720>&w
  19. <0x2aa61724>&<0x59>
  20. <0x2aa61728>&M
  21. <0x2aa6172c>&1.99167e-318var0626CHR$
  22. <0x2aa6173c>&NOT
  23. <0x2aa61740>&[
  24. <0x2aa61744>&?
  25. <0x2aa61748>&WEND
  26. <0x2aa6174c>&ivar0626FN
  27. <0x2aa61754>&IMP                                      <0x2aa67c2c,0x2aa60010>0 9916
  28. 9781label1c26Q
  29. 9793
  30. 9745
  31. 9971label1c26}var1c26<0x3b>label1c26plabel1c26ON
  32. 9838
  33. 9761
  34. 9957var1c26FIX
  35. 9976var1c26#label1c26MKL$var1c26Elabel5426w&2
  36. IF&ASC
  37. IF&-&J
  38. IF&&
  39. IF&<0x5e>
  40. <0x60>&EOFvarffffe026vvarffffe026[labelffffe026MODlabelffffe026klabelffffe026OPENvarffffe0264
  41. <0x60>&GOTOvarffffe026CALLvarffffe026jvarffffe026TOlabelffffe026<0x55>varffffe026LINElabelffffe026SGNvarffffe0267labelffffe026&H2e0&<0x4d>varffffe026SINlabelffffe026MODvarffffe0265&Mlabelffffe026"α&?α&$α&    α&ù'                  
  42.  1'4
  43. 1''<0x2aa61909>1'U<0x2aa6190d>1'-&H1227o11'Q18'351'CLOSE41'<0x5a>81'LINE51'<0x7f>81'/!1'WRITE5.27847e-281'><0x2aa6193d>1'4<0x2aa61941>1'<0x45>51'Kvar1227c<0x2aa6194d>1'\'<0x45>'2<0x2aa61959>1'EQV<0x2aa6195d>1'USING<0x2aa61961>1'<0x45><0x2aa61965>1'SIN<0x2aa61969>1'GOSUB<0x2aa6196d>1'CINT<0x2aa61971>1'g<0x2aa61975>1'<0x4b><0x2aa61979>1'VAL<0x2aa6197d>1'GOTO<0x2aa61981>1'CLOSE<0x2aa61985>1'<0x5b>&H1227<0x49>&H1227STRING$&H1227MKI$&H1227GOTO&H1227CHR$&H1227_&H1227<&H12274647-<0x2aa619ad>1'<0x45><0x2aa619b1>1'LOF<0x2aa619b5>1't<0x2aa619b9>1'S<0x2aa619bd>1'4<0x2aa619c1>1'var1612'                  '_51'@51'<!1'A304589345                                                                                                                                                           !1'{!1'Z!1' <0x2aa61a3e>1'INKEY$18'j18'!51'<0x62>41'<0x47>41'LSET                                       <0x62>81'['^var1227k<0x2aa61a8f>1       1'ELSE<0x2aa61ac5>1'1'<0x53>11'OPEN11'AND51'INT91'p91'!3046087971'NEXT'o<0x2aa61aed>1'<0x51>'9.17673e-316<0x2aa61afd>1'LOF<0x2aa61b01>1's<0x2aa61b05>1'LOG<0x2aa61b09>1'H&H12279&H1227<0xf9,0x04>1'READ<0x2aa61b19>1'ABS<0x2aa61b1d>1'_<0x2aa61b21>1'k51'L51'H!1'M3045924171'f!1'LINElabel2f29COS)<0x2aa61b44>)<0x2aa61b48>
  44. /)COS<0x2aa61b4d>/)<0xf9,0x08>/)WEND<0x2aa61b55>/)RND<0x2aa61b59>/)36645190var2f29GOSUB<0x2aa61b65>/)y<0x2aa61b69>/)X<0x2aa61b6d>/)?<0x2aa61b71>/)/<0x2aa61b75>/)8<0x2aa61b79>/)<<0x2aa61b7d>/)<0x4a><0x2aa61b81>/)REM/)ï/)y/)I/)7/)/)/)▀/)┐/)N/)â/)╢/)╫
  45. /)MKS$
  46.                                                                      
  47. /)GOTO)FN<0x2aa61bfa>/)Q<0x2aa61bfe>/)NOT)LSET)LOF<0x2aa61c0a>/)d<0x2aa61c0e>/)<0x56><0x2aa61c12>/)^<0x2aa61c16>/    /)<0x4b>)
  48.  
  49.  
  50.  
  51.  
  52.  
  53.  
  54.  
  55. UCVI+STR$<0x2aa61c54>
  56. INPUT<0x48>labelffffbf15STR$'
  57.                                                 7WRITE4CALLAREAlabelffff8e06vk&LOG5<0x2aa61ca3><0x2aa61ca4><0x2aa61ca5><0x50>uCVITO]<0x4b>EXPSTR$'
  58. P+ELSEIFP&<0x7f>6<0x2aa61cbb><0x2aa61cbc>&<0x7f>63WRITE4CALLAREAk&<0x7f>6<0x2aa61cd1><0x2aa61cd2>&<0x7f>6<0x2aa61cda><0x7f>vINPUT&H12'CALLAREA<0x2aa61ce8>COSF<0x7c><0x2aa61cec>ELSEIFtq=<0x7d><0x7f>u5STR$EXP9INKEY$RPINPUT<0x53>8.86415e-18<0x2aa61d02>RPSTR$<0x20>O<0EXPCALL~<0x7c><0x7c>u5STR$FIELD9INKEY$RPINPUT<0x53>8.86415e-18<0x2aa61d1e>RPSTR$LSETO<3EXPSTR$FIX                                                                                  PINPUT<0x53>8.86415e-18<0x2aa61d6a>RPSTR$MKS$O1352280585WRITE4CALLAREAk&<0x7f>6<0x2aa61d81><0x2aa61d82>&<0x7f>67WRITE4CALLAREA<0x2aa61d8f>STR$<0x7e><0x7f>CVITO]<0x4b>34816ELSE<0x2aa61d9c>vk&<0x7f>6<0x2aa61da2><0x2aa61da3>&<0x7f>6
  59. /)CALLAREA<0x2aa61db0><0x2aa61db1>ELSEIFt:STR$FN9INKEY$RPINPUT<0x53>8.86415e-18<0x2aa61dc2>RPSTR$PRINTO1352280585WRITE4CALLAREAk&<0x7f>6<0x2aa61dd9><0x2aa61dda>&<0x7f>67WRITE4CALLAREA<0x2aa61de7>STR$<0x7d><0x7f>CVITO]<0x4b>+ELSEIFCVITO]<0x4b>3ELSEIFINPUT
  60.